home *** CD-ROM | disk | FTP | other *** search
- ch = 1;
- while(Number(ch) < 16)
- {
- if(eval("col" add ch) == 1)
- {
- set("ymax" add ch,eval("newmax" add ch));
- t = eval("newmax" add ch) + 1;
- while(25 >= Number(t))
- {
- set("var" add ch add "_" add t add "_gone",0);
- t = Number(t) + 1;
- }
- set("col" add ch,"");
- ch = Number(ch) + 1;
- if(eval("col" add ch) != 1)
- {
- ch = 16;
- }
- }
- else
- {
- ch = Number(ch) + 1;
- }
- }
-